perm filename Q.LAP[4,KMC] blob sn#043948 filedate 1973-05-22 generic text, type T, neo UTF8
(LAP SLASHIFY SUBR) 
	(PUSH P 1) 
	(PUSH P 1) 
	(MOVEI 1 (QUOTE NIL)) 
	(CALL 1 (E NCONS)) 
	(PUSH P 1) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVE 1 -3 P) 
	(JUMPN 1 TAG6) 
	(HRRZ@ 1 -2 P) 
	(JRST 0 TAG2) 
TAG6 	(HLRZ@ 1 -3 P) 
	(MOVEM 1 0 P) 
	(HRRZ@ 1 -3 P) 
	(MOVEM 1 -3 P) 
	(PUSH P (C 0 0 TAG7 0)) 
	(PUSH P -2 P) 
	(MOVE 1 -2 P) 
	(CALL 1 (E NCONS)) 
	(MOVEI 2 (QUOTE //)) 
	(CALL 2 (E XCONS)) 
	(PUSH P 1) 
	(MOVEM 1 -4 P) 
	(MOVNI 6 2) 
	(JCALL 16 (E NCONC)) 
TAG7 	(JRST 0 TAG1) 
TAG2 	(SUB P (C 0 0 5 5)) 
	(POPJ P) 
	NIL